add narrow-to-region + widen support

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index 6fa098e0eb47bdab9de184f9ab3234cb95cce788..357085ee479836f9ec54127b45c501210ab524b0 100644 (file)
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -611,8 +611,12 @@ the annotation emission."
       (byte-char-syntax auto)
       (byte-buffer-substring auto)
       (byte-delete-region auto)
-      (byte-narrow-to-region)
-      (byte-widen)
+      (byte-narrow-to-region
+       (comp-emit-set-call `(call Fnarrow_to_region
+                                  ,(comp-slot)
+                                  ,(comp-slot-next))))
+      (byte-widen
+       (comp-emit-set-call '(call Fwiden)))
       (byte-end-of-line auto)
       (byte-constant2)
       (byte-goto